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= BUILD DAP STATUS MESSAGE 


DECLARATIONS 
FALSENCODE_STS = BUILD DAP STATUS MESSAGE 


K 13 


16-SEP-1984 01:38:54 VAX/VMS Macro V04-00 


FAL 
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L 13 
FALBLDSTS = BUILD DAP STATUS MESSAGE 16-SEP-1984 01:38:54 VAX/VMS Macro v04-00 Page 
ramps ~See IRS BiTSist PAR VES Secre, Noes Oe at ° 


- TITLE FALBLOS TS = BUILD DAP STATUS MESSAGE 
IDENT 'V0Q4=000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS pyeni eee epee A LICENSE te MAY BE USED AND sores 
ONLY ACCORDANCE a R AND WITH THE 


® ® 
® ® 
® we 
® * 
® ® 
® ® 
® ® 
® * 
© Vv + 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. + 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
® * 
* ® 
® ® 
® ® 
te ® 
bad * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: FAL (DECnet File Access Listener) 
Abstract: This module builds the DAP Status message. 


Environment: VAX/VMS, user mode 


Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
v03-002 JAKO137 JA 12-MAR-1984 
Use SCHECK_STATUS instead “of $CHECK_SS and other minor cleanup. 
v03-001 JAKO104 J A Krycka 15-MAR-1983 


'f Logging in enabled, omit display of DAP status code that is 
equivalent to RMS$_EOF. 
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Equated Symbols: 


ASSUME FALSQ_FLG EQ 0 


Own Storage: 


= BUILD DA E 1 
V DECLARATIO “SE 1 FAL.SRCJFALBLDSTS.MAR;1 
i ‘8 -SBTTL DECLARATIONS 
0 ; 
1; Include Files: 
BB) § : 
00 
4 54 SDAPHDRDEF ; Define DAP message header 
8 00 55 SDAPCNF DEF ; Define DAP Configuration message 
000 2$ SDAPSTSDEF ; Define DAP Status message 
0000 2 $F ALWRKDEF ; Define FAL Work Area symbols 
0000 8 SRABDEF ; Define Record Access Block sym** 
8008 59 
0 60 
8308 61 ; Macros: 
000 62 
0000 63 None 
0000 64 
0000 65 
0000 66 
0000 67 
0000 68 
0000 69 
0000 70 
0000 71 
0000 72 
0000 73 


None 


| 
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v0G= FALSENCODE_STS - BUILD DAP STATUS MESSAG 5=SEP-1984 01:16:31 CFAL.SRCJFALBLDSTS.MAR; 1 (3) | vO 
-SBTTL FALSENCODE_STS = BUILD DAP STATUS MESSAGE 
0000 -PSECT FALSCODE NOSHR,EXE,RD,NOWRT BYTE 


+ 
; Functional Description: 


FALSENCODE_STS builds a DAP Status message based on the class of DAP 
success or failure condition. 


Calling Sequence: 
BSBW FALSENCODE_STS 
; Input Parameters: 
R2 DAP MACCODE value (in bits 0-3) 
R8 Address of FAL work area 
RG Address of DAP control block 
R10 Address of File Access Block 
R11 Address of RAB control block 
and for file access status codes: 


RO RMS-32 completion code 
R1 Secondary status value (STV of FAB or RAB) 


and for DAP protocol errors: 


RO DAP field ID code (in bits 0-5) 
R1 DAP message type (in bits 0-5) 


and for message synchronization errors: | 


| 
RO Not used ae | 
R1 DAP message type (in bits 0-5) | 
| 
| 


; Implicit Inputs: 


FALS$V_LAST_MSG 
FALSV~RET_RFA 


RABSW_RFA 

; Output Parameters: 

RO-R5 Destroyed 

; Implicit Outputs: 
FALSV_LAST_MSG cleared 
FAL$V_RET_RFA cleared 


FALSV_RET_RECN cleared 
FALSV_RET_STV cleared 
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; Completion Codes: 
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MSG_OUT _OF _SEQ= Unexpected message for state 


BUG: Fall thru ... 


Process file access error. perform RMS-to-DAP status code look-up to obtain 
DAP MICCODE value. 


Note: If the RMS code does not match, a DAP MICCODE of zero is returned 
which means unknown type of error. 


~~" Sete Ge Ge Ge Ge Se 


ILE_ACCESS: 
MOVL 


: Save STV value in RS 


FALBLDSTS = BUILD DAP STATUS MESSAGE 16-SEP-1984 01:38:54 VAX/VMS Macro v04-00 Page 
v04-000 FALSENCODE_STS = BUILD DAP STATUS MESSAG mets Pi B78: 1 (CFAL.SRCIFALBLDSTS.MAR;1 ° 
lee 3 
$6 1 : 3 None 
00 199 3 ., 
0 135 ; Side Effects: 
0 136 ; 
0 137 ; None 
0 138 ; 
0 139 ;-- 
0 140 
3 14) FALSENCODE_STS:: : Control point 
0 128 ASSUME DAP$_PENDING EQ 0 
0 144 ASSUME DAP$_SUCCESS EQ 1 
0 145 ASSUME DAPS$_UNSUPPORT EQ 2 
0 146 ASSUME DAP$_FILE_OPEN EQ 4 
0 147 ASSUME DAPS$_FILE_XFER EQ 5 
0 148 ASSUME DAP$_WARNING EQ 6 
149 ASSUME DAP$_FILE_CLOS fe 7 
150 ASSUME DAPS$_FORMAT EQ 
151 ASSUME DAP$_INVALID EQ 9 
136 ASSUME DAPS$_MSG_SYNC EQ 10 
8 
P : 13? ; Examine DAP MACCODE parameter to determine which class of message it is. 
157 * 
158 SCASEB SELECTOR=R2,- ; MACCODE: 
159 DISPL=<- ; 
160 FILE _ACCESS- ; File operation pending 
161 FILE_ACCESS- ; File operation successful 
162 PROTOCOL= 3; Request not supported 
163 BUG- ; Undefined value . 
164 FILE_ACCESS- : Errors related to opening a file 
165 FILE_ACCESS- ; Errors related to file transfer 
166 BUG- ; Undefined value . " 
167 FILE_ACCESS=- ; Errors related to closing a file 
168 PROTOCOL- : Incorrect message format 
4 PROTOCOL- ; Invalid field value 
2 7 
193 
174 
175 
176 
177 
178 
179 
180 
13 
DO 188 R1,R5 l 
DE 184 MOVAL w*fALSRMS_TO_DAP,R1 ; Get conversion table address 
B1 185 10$: CMPW RO,(R1)+ ; Does RMS code match? 
13 1 § BEQL 20 : Yes, finish up 
85 1 TSTW (R1)+ ; Is this end of table? 
12 188 BNEQ 10$ ; No, try again 
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FALBLOSTS = BUILD DAP STATUS MESSAGE 16-SEP-1984 01: 70: 4 \VAX/VMS Macro v04-00 P 
04-000 FALSENCODE. STS - BUILD DAP STATUS MESSAG S-SEP=1986 01:16:31 [FAL SRCTPALOLDSTS MAR:1 OS" (3). 
50 61 3C 002B 189 20$: MOVZWL (R1),RO ; Store equivalent DAP status code 
OA 11 a0 F 190 BRB ADD_MACCODE 5 font inue 
op § 138 : F MICCODE l f DAP L 
: Form value for rotocol error. 
BOs 194 ; . 
0030 195 
0030 196 PROTOCOL: 3 
50 06 06 51° FO Boe 197 INSV #6,46,R0 3; Add gessoge type to field id 
03 11. 003 198 BRB ve _MACCODE 3; Continu 
0037 199 
ht $09 3 3 
it 4 : Get MICCODE value for message-out-of-sequence error. 
0037 he : 
5051 0 0037 Spe MSGHOUT-OF ESEG: Oko : MACCODE l 
. ; = message type value 
003A 306 ae 
003A 207 ; : 
BORA $09 ; Combine MACCODE value with MICCODE value to form DAP status code. 
003A 210 
003A 211 ADD_MACCODE: 3 
50 04 OC 52 FO QO3A 212 INSV R2,412,#4,R0 ; Assemble DAP status code in bits 00-15 
54 50 00 OO3F 213 MOVL RO,R4 : and save value in R4 
0042 se 
Mie $i ; Begi tructing the St 
3; Begin constructin e Status message. 
0042 217; . ' . 
0042 218 
50 09 v0 $003 38 _— STS oy VL #DAPSK_STS MSG, RO :G l 
; Get message type value 
FFB8" 30 0045 221 BSBW PALSBUTLO_REA REA ; Fanstruct aeenene header 
83 54 BO 0048 $s§ MOVW R4,(R3) ; Store status co n field 
0048 22 
0048 224; 
0048 225 ; The required fields have been assembled (header plus STSCODE). 
aes $58 : Now assemble the optional fields (RFA, RECNUM, and STV) as requested. 
0048 206 3; Note: If FALSV_RET_RECN is set, then get value from RAB$L_B 
0048 $3 ; If 4. ALSVIRET-RFA is set, then get value from RABSL “REAG and RABSW_RFA4. 
0048 230; If FALSV-RET_STV is set, then get value from RS. 
0048 S31 3 Finally, clear all three bits. 
0048 § 3 
0048 
0048 4 ASSUME FALSV_RET_RECN EQ FALSV_RET_RFA+1 
Ree 5 ASSUME FAL$V~ “RET_STV EQ FALSV RET _RECN+1 
EO 0048 5 BBS #DAPS$V_RANRFA,- ; Branch if partner supports 
04 28 A9 04D 8 DAP$Q_SYSCAP(R9),10$ ; access by RFA 
50 9 SCLRBIT #FALSV_RET_RFA, (R8) : Disable request to return RFA 
50 68 O03 19 EF 0054 240108:  EXTZV #FALSVIRETIRFA,#3,(R8),RO 
30 13 0059 41 BEQL 40$ ; Branch if RFA, RECNUM, and STV 
58 $s 3; are not wanted 
83 894 58 4 CLRB (R3)+ 3; Assume RFA is not wanted 
0c 68 «+19 #3 5D 44 BBCC #FALSV_RET_RFA,(R8),20$ ; Branch if RFA is not wanted 
FF AS 06 0 0061 45 MOVB #6,-1(R3) ~ ; Store RFA as an image field 


<7 
22 


LER TS 
v04-000 


NAADAOS— VSHHOH 


oO oO 
o —s& 
Wino oa 
—o co 
Ww 
nan al?) 
nan nn 
NNW 


29 68 
1095 8F 


5027 8F 


FF45S' 


"9 
> 
“rc 


COoomoourrk WOO rq 
me 


WWOMWOMO —MmwoO 


—-o-om 
‘NW 


30 
05 


Oo 
wn 


Oo 
oe 


; Output status 


> 2S OO OO W000900 0909 09 090008 SI NI SII NOOO 


“ 


SNS NNN A AAA AAA A AAMT EEE Ot 
o 
bad 


NOUS UNO OONA UE WN) O OONOU EWN OOOne 


POPIPIPUPIPYDINYPIPYNINYNINPINPINYIPYIPIPUPINPINININIPYPIPINPYPYPNPIPY 1 


D 14 


SEP= =1984 1:38: 

SEP=1984 01:16: 
RABSL_RFAO R11). (R3)s 
RABSW-RFA4(R11).(R3)¢ i 
#FALSO_RET_RECN,A2, (RB) ,R 
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iy val 6-byte record file address 
ue to DAP message 


F sreiah if RECNUM and STV 
are not wanted 


3; Assume RECNUM is get wanted 


ALSV vere RECN 

RABEL Teri) a1 
ee 4_1MG 
srAL SV RET “stv. (RB), 40$ ; 


FALSCVT_BN4_IMG 3 
FALSBUICD_TAIL ; 


(R8), 308; 


code to print file. 
ag LO 598- NAM, (R8),50$ ; 
sat : 
RG, #*X5027 : 
50$ ; 
CTRSTR=W*FAL$GQ_STATUS- ; 


OUTLEN=W“FALSGW_PRTLEN1-; 
OUTBUF =W*FALSGQ_ PRTBUF 1- 


TUS 
~SFALSPRINT FAO 


; Omit display 


Branch if RECNUM is not wanted 
; Get bucket value to use for RECNUM 


: Store RECNUM as an image field 
; Branch if STV is not wanted 
; Get status value 


Store STV as an image field 
Finish building message 


Branch if Logging disabled ; 
f DAP status code is 

equivalent to RMS$_SUC 

Omit display if DAP status code is 

equivalent to RMS$_EOF 

Format the error message 


DAP status word 
Check status code 
eryes message 

xit 


End of module 
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Symbol table 


SSCOUNT 
$$T2 
ADD_MACCODE 
BUG 
DAP$B_BITCNT 
DAPSB_DECVER 


P$B_VERNUM 
DAPSK_STS_MSG 
DAPSL RECRUAZ 


FAL38~LOGGING 
FALSB"MISCOPT 


FALSC_WRKBLA 


F AL$B- VALUE 
FALSCRECK STATUS 
FALSCVT_BR4_IMG 
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90000002 
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LSL_KEYXAB 
LSLLKEVKABINI 
SL-NAM2 


L-RDTXAB 
LSLIRMS_PTR 


L$ RCVIOSB 
LSQ"STATE_CTX 
Q™SYSNET 
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00000000 RG 
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Symbol table 


FAST. PRTBUF 2 


SEND_STS 
SYSSFAO 


PSECT name 


Initialization 


The worki se 
31830 bytes (6 


Command processing 
ass 
pyavos, table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Limit was 1050 pages. 
pages) of virtual memory were used to buffer phe intermediate code. 
There were 30 pages of symbol table space oh yocated to hold 5 

77 source Lines were read in Pass 1, 


producing 1 
0 pages of virtual memory were used to define 18 macros 


= BUILD DAP STATUS MESSAGE 


->) QO ¢ 0.) NOPIC USR 
-»> Q1¢ 1.) NOPIC  USR 
-»> 02 ¢ 2.) NOPIC  USR 
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L ct a NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


2 non-local and 9 local symbols. 


FALBLOSTS 
vant? Macro Run Statistics 
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poses eoewoocneces wonton ewan > 


! \ "Macro Library statistics ! 


ececece eer entree er ene ncn mee a= - 


Macro Library name Macros defined 

- scenes g: FAL.OBJJFAL.MLB;1 8 
55$DUA28: CSYSLIBISTARLET.MLB;2 7 

Torre (all Libraries) 15 


698 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=LIS$:FALBLDSTS/OBJ=OBJ$:FALBLDSTS MSRC$:FALBLDSTS/UPDATE=(ENH$:FALBLDSTS)+LIB$:FAL/LIB 
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